Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/access4g/filerena.frm

Text File | 1999-08-22 | 16KB | 517 lines

VERSION 5.00
Begin VB.Form FileRenamer
   Caption         =   "File-Renamer"
   ClientHeight    =   5385
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7200
   Icon            =   "FileRenamer.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   359
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   480
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command5
      Caption         =   "Stop scroll"
      Height          =   240
      Left            =   360
      TabIndex        =   25
      Top             =   450
      Width           =   1365
   End
   Begin VB.Timer Timer1
      Interval        =   1
      Left            =   2430
      Top             =   2880
   End
   Begin VB.PictureBox Picture1
      BackColor       =   &H00C00000&
      Height          =   330
      Left            =   45
      ScaleHeight     =   18
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   291
      TabIndex        =   23
      Top             =   45
      Width           =   4425
      Begin VB.Label Label7
         AutoSize        =   -1  'True
         BackColor       =   &H00C00000&
         Caption         =   "Label7"
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFC0C0&
         Height          =   240
         Left            =   180
         TabIndex        =   24
         Top             =   0
         Width           =   720
      End
   End
   Begin VB.CommandButton Command4
      Caption         =   "Rename !"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2475
      TabIndex        =   20
      Top             =   4950
      Width           =   1770
   End
   Begin VB.CommandButton Command3
      Caption         =   "Preview"
      Height          =   240
      Left            =   90
      TabIndex        =   19
      Top             =   2700
      Width           =   2085
   End
   Begin VB.ListBox List1
      BackColor       =   &H00E0E0E0&
      Height          =   2400
      Left            =   90
      TabIndex        =   18
      Top             =   2970
      Width           =   2085
   End
   Begin VB.CommandButton Command2
      Caption         =   "Select none -->"
      Height          =   285
      Left            =   3195
      TabIndex        =   17
      Top             =   3015
      Width           =   1230
   End
   Begin VB.CommandButton Command1
      Caption         =   "Select all      -->"
      Height          =   285
      Left            =   3195
      TabIndex        =   16
      Top             =   2700
      Width           =   1230
   End
   Begin VB.Frame Frame1
      Caption         =   "File Operations"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   1815
      Left            =   45
      TabIndex        =   6
      Top             =   765
      Width           =   4425
      Begin VB.CheckBox Check1
         Caption         =   "Adapt counter after renaming"
         Height          =   240
         Left            =   1620
         TabIndex        =   22
         Top             =   1125
         Value           =   1  'Checked
         Width           =   2670
      End
      Begin VB.HScrollBar HScroll1
         Height          =   270
         Left            =   3645
         Max             =   100
         Min             =   1
         TabIndex        =   15
         Top             =   1440
         Value           =   1
         Width           =   420
      End
      Begin VB.TextBox Text3
         Height          =   285
         Left            =   135
         TabIndex        =   12
         Text            =   "1"
         Top             =   1440
         Width           =   1275
      End
      Begin VB.OptionButton Option1
         Caption         =   "After"
         Height          =   240
         Index           =   2
         Left            =   2385
         TabIndex        =   11
         Top             =   675
         Width           =   1200
      End
      Begin VB.OptionButton Option1
         Caption         =   "Before"
         Height          =   240
         Index           =   1
         Left            =   1260
         TabIndex        =   10
         Top             =   675
         Width           =   1200
      End
      Begin VB.OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Replace"
         Height          =   240
         Index           =   0
         Left            =   135
         TabIndex        =   9
         Top             =   675
         Value           =   -1  'True
         Width           =   1200
      End
      Begin VB.TextBox Text2
         BackColor       =   &H00E0E0E0&
         Height          =   285
         Left            =   1305
         TabIndex        =   8
         Text            =   "Text2"
         Top             =   315
         Width           =   2040
      End
      Begin VB.Label Label6
         Alignment       =   2  'Center
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Begin counter"
         Height          =   270
         Left            =   135
         TabIndex        =   21
         Top             =   1125
         Width           =   1275
      End
      Begin VB.Line Line2
         BorderColor     =   &H80000009&
         X1              =   45
         X2              =   4380
         Y1              =   1005
         Y2              =   1005
      End
      Begin VB.Line Line1
         BorderColor     =   &H00808080&
         X1              =   45
         X2              =   4380
         Y1              =   990
         Y2              =   990
      End
      Begin VB.Label Label5
         Alignment       =   2  'Center
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "1"
         Height          =   270
         Left            =   3195
         TabIndex        =   14
         Top             =   1440
         Width           =   420
      End
      Begin VB.Label Label4
         Alignment       =   2  'Center
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Increase counter by:"
         Height          =   270
         Left            =   1620
         TabIndex        =   13
         Top             =   1440
         Width           =   1545
      End
      Begin VB.Label Label3
         Alignment       =   2  'Center
         BackColor       =   &H00E0E0E0&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Change name:"
         Height          =   270
         Left            =   90
         TabIndex        =   7
         Top             =   315
         Width           =   1140
      End
   End
   Begin VB.TextBox Text1
      BackColor       =   &H00C0FFFF&
      ForeColor       =   &H000000FF&
      Height          =   285
      Left